home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_C.d64 / t&t if-funktion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  186b  |  10 lines
  1. 5 :print"[147]";:goto10:rem--start
  2. 6 :save"@0:t&t if-fnkn",8:return:
  3. 9 :
  4. 10 :print"if-funktion:"
  5. 11 :deffni(a)=43256+67*-(a<>.)
  6. 12 :a=.:gosub15:a=1:gosub15:list11-16
  7. 13 :
  8. 15 :printa":"1;:sysfni(a=1):print2;
  9. 16 :print4:return:
  10.